home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_186_Help.bin < prev    next >
Text File  |  1995-11-23  |  3KB  |  71 lines
  1. ItemType: WIND
  2. Rect: 91,303,491,464
  3. AutoSize: FALSE
  4. Style: Windoid
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. HasCloseBox: TRUE
  8. HasGrowBox: TRUE
  9. MinSize: 400,161
  10. MaxSize: 630,310
  11. Name: Help
  12. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue┬┬if objValue="Open" then ┬  get wsGet("Help","Text","Height")┬  put it into theHeight┬  put "7,"&(theHeight+23) into tt┬  wsSet wdID,"8","TopLeft",tt┬  wsSet "Help","Topics","Height", theHeight┬  put 0 into daScroll┬  get wsGet("Help","Topics","Selection")┬  put it into theSel┬  put theHeight/12 into theLines -- # lines visible?┬  put round(theSel-theLines) into temp┬  if temp>0 then put (temp+1) into daScroll┬  wsSet wdID,"Topics","Scroll",daScroll┬  ┬else if objValue="Close" then ┬  global windoidRect┬  get wsGet("Help","0","Rect")┬  put it into line 1 of windoidRect┬  saveLocs┬  ┬else if objValue="CloseBox" then ┬  ┬else if objValue="GrowBox" then ┬  get wsGet("Help","Text","Height")┬  put it into theHeight┬  put "7,"&(theHeight+23) into tt┬  wsSet wdID,"8","TopLeft",tt┬  wsSet "Help","Topics","Height", theHeight┬  put 0 into daScroll┬  get wsGet("Help","Topics","Selection")┬  put it into theSel┬  put theHeight/12 into theLines -- # lines visible?┬  put round(theSel-theLines) into temp┬  if temp>0 then put (temp+1) into daScroll┬  wsSet wdID,"Topics","Scroll",daScroll┬  ┬end if┬┬--end windowEvent
  13. Params: i2_Text┬i2_SelectionText┬i3_Text┬i0_Rect
  14.  
  15. ItemType: TEXT
  16. Rect: 45,4,190,16
  17. TextFont: Geneva
  18. TextSize: 9
  19. Name: instr
  20. Text: (click on a topic to see its help)
  21.  
  22. ItemType: LIST
  23. Rect: 7,21,195,142
  24. TextFont: Geneva
  25. TextSize: 9
  26. AutoSize: FALSE
  27. Name: Topics
  28. KeyScroll: TRUE
  29. Text: 
  30. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"Topics","Selection")┬if it¡empty then┬  wsSet wdID,"Text","Text",(fld "helpText" of cd it of bg "help")┬  wsSet wdID,"Text","Scroll", "0"┬  if the optionKey is down then -- go to help cd to edit┬    visual checkerboard fast┬    go cd it of bg "help"┬  end if┬end if┬┬--end mouseUp┬
  31.  
  32. ItemType: TEXT
  33. Rect: 208,22,395,143
  34. TextFont: Geneva
  35. TextSize: 9
  36. AutoSize: FALSE
  37. GrowItem: TRUE
  38. Name: Text
  39. Scrolling: TRUE
  40. Inset: 0
  41.  
  42. ItemType: TEXT
  43. Rect: 4,4,45,17
  44. TextFont: Geneva
  45. TextSize: 10
  46. Name: Title
  47. TextStyle: Bold
  48. Text: Topics
  49.  
  50. ItemType: BOX
  51. Rect: 206,0,395,20
  52. Fill: Gray
  53.  
  54. ItemType: PUSH
  55. Rect: 211,2,271,18
  56. TextFont: Geneva
  57. TextSize: 9
  58. AutoSize: FALSE
  59. Name: Print this
  60. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬send printThisHelp to fld "scripter" of cd 1┬--end mouseUp
  61.  
  62. ItemType: PUSH
  63. Rect: 278,2,389,18
  64. TextFont: Geneva
  65. TextSize: 9
  66. Name: Create Help booklet
  67. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬send printAllHelp to fld "scripter" of cd 1┬--end mouseUp
  68.  
  69. ItemType: LBL
  70. Rect: 7,144,163,160
  71. Text: Financial Portfolio Help